object Form1: TForm1
  Left = 241
  Top = 191
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Page_1: TRzPageControl
    Left = 0
    Top = 29
    Width = 862
    Height = 558
    ActivePage = TabSheet1
    Align = alClient
    ParentColor = False
    TabIndex = 0
    TabOrder = 0
    TabStyle = tsCutCorner
    FixedDimension = 20
    object TabSheet1: TRzTabSheet
      Caption = 'TabSheet1'
      object RzSplitter1: TRzSplitter
        Left = 0
        Top = 0
        Width = 858
        Height = 534
        Position = 542
        Percent = 63
        Align = alClient
        TabOrder = 0
        BarSize = (
          542
          0
          546
          534)
        UpperLeftControls = (
          Grid_1)
        LowerRightControls = (
          RzSplitter2)
        object Grid_1: TAdvStringGrid
          Left = 0
          Top = 0
          Width = 542
          Height = 534
          Cursor = crDefault
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ScrollBars = ssBoth
          TabOrder = 0
          ActiveCellFont.Charset = DEFAULT_CHARSET
          ActiveCellFont.Color = clWindowText
          ActiveCellFont.Height = -11
          ActiveCellFont.Name = 'Tahoma'
          ActiveCellFont.Style = [fsBold]
          ControlLook.FixedGradientHoverFrom = clGray
          ControlLook.FixedGradientHoverTo = clWhite
          ControlLook.FixedGradientDownFrom = clGray
          ControlLook.FixedGradientDownTo = clSilver
          ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET
          ControlLook.DropDownHeader.Font.Color = clWindowText
          ControlLook.DropDownHeader.Font.Height = -11
          ControlLook.DropDownHeader.Font.Name = 'Tahoma'
          ControlLook.DropDownHeader.Font.Style = []
          ControlLook.DropDownHeader.Visible = True
          ControlLook.DropDownHeader.Buttons = <>
          ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET
          ControlLook.DropDownFooter.Font.Color = clWindowText
          ControlLook.DropDownFooter.Font.Height = -11
          ControlLook.DropDownFooter.Font.Name = 'MS Sans Serif'
          ControlLook.DropDownFooter.Font.Style = []
          ControlLook.DropDownFooter.Visible = True
          ControlLook.DropDownFooter.Buttons = <>
          Filter = <>
          FilterDropDown.Font.Charset = DEFAULT_CHARSET
          FilterDropDown.Font.Color = clWindowText
          FilterDropDown.Font.Height = -11
          FilterDropDown.Font.Name = 'MS Sans Serif'
          FilterDropDown.Font.Style = []
          FilterDropDownClear = '(All)'
          FixedRowHeight = 22
          FixedFont.Charset = DEFAULT_CHARSET
          FixedFont.Color = clWindowText
          FixedFont.Height = -11
          FixedFont.Name = 'Tahoma'
          FixedFont.Style = [fsBold]
          FloatFormat = '%.2f'
          Look = glSoft
          PrintSettings.DateFormat = 'dd/mm/yyyy'
          PrintSettings.Font.Charset = DEFAULT_CHARSET
          PrintSettings.Font.Color = clWindowText
          PrintSettings.Font.Height = -11
          PrintSettings.Font.Name = 'MS Sans Serif'
          PrintSettings.Font.Style = []
          PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
          PrintSettings.FixedFont.Color = clWindowText
          PrintSettings.FixedFont.Height = -11
          PrintSettings.FixedFont.Name = 'MS Sans Serif'
          PrintSettings.FixedFont.Style = []
          PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
          PrintSettings.HeaderFont.Color = clWindowText
          PrintSettings.HeaderFont.Height = -11
          PrintSettings.HeaderFont.Name = 'MS Sans Serif'
          PrintSettings.HeaderFont.Style = []
          PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
          PrintSettings.FooterFont.Color = clWindowText
          PrintSettings.FooterFont.Height = -11
          PrintSettings.FooterFont.Name = 'MS Sans Serif'
          PrintSettings.FooterFont.Style = []
          PrintSettings.PageNumSep = '/'
          SearchFooter.Color = clBtnFace
          SearchFooter.FindNextCaption = 'Find &next'
          SearchFooter.FindPrevCaption = 'Find &previous'
          SearchFooter.Font.Charset = DEFAULT_CHARSET
          SearchFooter.Font.Color = clWindowText
          SearchFooter.Font.Height = -11
          SearchFooter.Font.Name = 'MS Sans Serif'
          SearchFooter.Font.Style = []
          SearchFooter.HighLightCaption = 'Highlight'
          SearchFooter.HintClose = 'Close'
          SearchFooter.HintFindNext = 'Find next occurrence'
          SearchFooter.HintFindPrev = 'Find previous occurrence'
          SearchFooter.HintHighlight = 'Highlight occurrences'
          SearchFooter.MatchCaseCaption = 'Match case'
          SelectionColor = clHighlight
          SelectionTextColor = clHighlightText
          Version = '6.1.3.1'
        end
        object RzSplitter2: TRzSplitter
          Left = 0
          Top = 0
          Width = 312
          Height = 534
          Orientation = orVertical
          Position = 100
          Percent = 19
          Align = alClient
          TabOrder = 0
          BarSize = (
            0
            100
            312
            104)
          UpperLeftControls = (
            fsSyntaxMemo2)
          LowerRightControls = (
            fsSyntaxMemo1)
          object fsSyntaxMemo2: TfsSyntaxMemo
            Left = 0
            Top = 0
            Width = 312
            Height = 100
            Cursor = crIBeam
            Align = alClient
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Courier New'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 0
            TabStop = True
            BlockColor = clHighlight
            BlockFontColor = clHighlightText
            CommentAttr.Charset = DEFAULT_CHARSET
            CommentAttr.Color = clNavy
            CommentAttr.Height = -13
            CommentAttr.Name = 'Courier New'
            CommentAttr.Style = [fsItalic]
            KeywordAttr.Charset = DEFAULT_CHARSET
            KeywordAttr.Color = clWindowText
            KeywordAttr.Height = -13
            KeywordAttr.Name = 'Courier New'
            KeywordAttr.Style = [fsBold]
            StringAttr.Charset = DEFAULT_CHARSET
            StringAttr.Color = clNavy
            StringAttr.Height = -13
            StringAttr.Name = 'Courier New'
            StringAttr.Style = []
            TextAttr.Charset = DEFAULT_CHARSET
            TextAttr.Color = clWindowText
            TextAttr.Height = -13
            TextAttr.Name = 'Courier New'
            TextAttr.Style = []
            Lines.Strings = (
              '[5]=script(formula1,param1=[1],param2=[2],param3=[3],param4=[4])')
            ReadOnly = False
            SyntaxType = stPascal
            ShowFooter = True
            ShowGutter = True
          end
          object fsSyntaxMemo1: TfsSyntaxMemo
            Left = 0
            Top = 0
            Width = 312
            Height = 430
            Cursor = crIBeam
            Align = alClient
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Courier New'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 0
            TabStop = True
            BlockColor = clHighlight
            BlockFontColor = clHighlightText
            CommentAttr.Charset = DEFAULT_CHARSET
            CommentAttr.Color = clNavy
            CommentAttr.Height = -13
            CommentAttr.Name = 'Courier New'
            CommentAttr.Style = [fsItalic]
            KeywordAttr.Charset = DEFAULT_CHARSET
            KeywordAttr.Color = clWindowText
            KeywordAttr.Height = -13
            KeywordAttr.Name = 'Courier New'
            KeywordAttr.Style = [fsBold]
            StringAttr.Charset = DEFAULT_CHARSET
            StringAttr.Color = clNavy
            StringAttr.Height = -13
            StringAttr.Name = 'Courier New'
            StringAttr.Style = []
            TextAttr.Charset = DEFAULT_CHARSET
            TextAttr.Color = clWindowText
            TextAttr.Height = -13
            TextAttr.Name = 'Courier New'
            TextAttr.Style = []
            Lines.Strings = (
              'function formula1:extended;'
              'begin'
              '  result:=param1+param2+param3+param4;'
              'end;'
              ''
              'function formula2:extended;'
              'begin'
              '  result:=0;'
              '  if (param1 >=0 ) and (param1<=3500) then'
              '  begin'
              '    result:=0;'
              '  end else'
              '  if (param1 >=3500.01 ) and (param1<=5000) then'
              '  begin'
              '    result:=(param1 - 3500) * 0.03;'
              '  end else'
              '  if (param1 >=5000.01 ) and (param1<=8000) then'
              '  begin'
              '    result:=(param1 - 3500) *0.1 - 105;'
              '  end else'
              '  if (param1 >=8000.01 ) and (param1<=12500) then'
              '  begin'
              '    result:=(param1 - 3500) *0.2 - 555;'
              '  end else'
              '  if (param1 >=12500.01 ) and (param1<=38500) then'
              '  begin'
              '    result:=(param1 - 3500) *0.25 - 1005;'
              '  end;'
              'end;'
              ''
              'begin'
              'end.')
            ReadOnly = False
            SyntaxType = stPascal
            ShowFooter = True
            ShowGutter = True
          end
        end
      end
    end
    object TabSheet2: TRzTabSheet
      Caption = 'TabSheet2'
    end
  end
  object Tool_1: TRzToolbar
    Left = 0
    Top = 0
    Width = 862
    Height = 29
    ButtonWidth = 60
    ShowButtonCaptions = True
    TextOptions = ttoCustom
    BorderInner = fsNone
    BorderOuter = fsGroove
    BorderSides = [sdTop]
    BorderWidth = 0
    TabOrder = 1
    VisualStyle = vsClassic
    ToolbarControls = (
      Btnx_FillData
      Btnx_Script
      Btnx_RegEx
      Btnx_2)
    object Btnx_FillData: TRzToolButton
      Left = 4
      Top = 2
      Caption = 'FillData'
      OnClick = Btnx_FillDataClick
    end
    object Btnx_2: TRzToolButton
      Left = 237
      Top = 2
      Caption = 'Terminate'
      OnClick = Btnx_2Click
    end
    object Btnx_Script: TRzToolButton
      Left = 64
      Top = 2
      Width = 87
      Caption = 'Execute.fsscript'
      OnClick = Btnx_ScriptClick
    end
    object Btnx_RegEx: TRzToolButton
      Left = 151
      Top = 2
      Width = 86
      Caption = 'Execure.RegEx'
      OnClick = Btnx_RegExClick
    end
  end
  object RzStatusBar1: TRzStatusBar
    Left = 0
    Top = 587
    Width = 862
    Height = 19
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    TabOrder = 2
    object Panl_1: TRzStatusPane
      Left = 0
      Top = 0
      Width = 293
      Height = 19
      Align = alLeft
    end
    object Panl_2: TRzStatusPane
      Left = 293
      Top = 0
      Width = 263
      Height = 19
      Align = alLeft
    end
  end
end
